Top 10k strings from Draw Poker (1985)(16-48 Tape Magazine)[a].z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Covertapes / Sinclair ZX Spectrum - Covertapes - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 pot=pot+10
   3 ;"fnscfdbrbg"
   3 ,yy;c$((d-1
   2 pot=pot+togo
   2 p(g)=p(g)-10
   2 i(f)=h(f):
   2 calls=players-1
   2 calls=calls+1
   2 c(dc)=h(g):
   2 c(dc)=h((f-1
   2 ;"Player ";g-1
   2 ;"DRAW POKER";
   2 "fnscfdbrbg"
   1 z$="20080202CHEAT AT ":
   1 z$="20070202PRESENTS":
   1 z$="20070201SPECTRUM.":
   1 z$="20050201DRAW POKER":
   1 z$="20010202I BET YOU EVEN ":
   1 z$="18030303PATIENCE!":
   1 z$="17040203M. E. Yates":
   1 z$="10020304GOOD LUCK!":
   1 z$="00050203THE HANDS:":
   1 y(sub+f)=f+1
   1 y(sub+ct)=f:
   1 xx,yy;v(d);" "
   1 x,y;c$(c1)
   1 x+1,y;c$(c1):
   1 x(g)=x(g)+1
   1 x$="You have ":
   1 x$="Player "+
   1 x$=" WELL DONE! "
   1 x$=" HARD LUCK! ":
   1 x$;"not enough to"'"play so the game has to end."
   1 v=hand values, p=purses, c=pack+52 discards, h=5*5 cards (1-52), i=5*5 cards (2-14), c$=5*5 cards vals+suits
   1 v(g)=v(g)+300
   1 v(g)=i(a+5
   1 v(f)>v(win)
   1 v(f)=v(f)-300
   1 v$=" Press any key to continue.
   1 togo>p(f)/10
   1 togo=togo+raze
   1 togo=togo+amt
   1 togo<p(f)/4
   1 togo<p(f)/10
   1 togo+raze>p(1
   1 togo+amt>p(f)
   1 start of hand
   1 stack=u(h)
   1 stack=round:
   1 stack=max:
   1 stack+call
   1 round=round+1
   1 rest=rest+round-1
   1 rest=rest+5
   1 prt sorted
   1 pot=pot+togo:
   1 pot=pot+25
   1 poss flush
   1 ply CH/VAL
   1 players=players-1
   1 players=calls-2
   1 p(win)=p(win)+pot:
   1 p(f)=p(f)-togo:
   1 p(f)=p(f)-5
   1 p(f)=p(f)-(togo)
   1 p(f)=10000
   1 o$="OPEN `":
   1 o$="AND RAISE `"
   1 max=stack-100
   1 lastup=raze
   1 lastup=amt
   1 i(x)=i(y):
   1 i(f)=i(f)-39
   1 i(f)=i(f)-26
   1 i(f)=i(f)-13
   1 hand's discards
   1 h(x)=h(y):
   1 h(s2)=c(s1):
   1 h(q)=c(nc):
   1 h(a+f)<t+14
   1 h(a+ch)=c(nc):
   1 graphics 1
   1 f;" SORTING "
   1 changed cards
   1 ch=y(sub-1
   1 call=u(h+1
   1 call=max-stack:
   1 c(dc)=h(q):
   1 c(dc)=h(a+ch):
   1 c$(x)=c$(y):
   1 amt=lastup+10
   1 Value hands and change cards
   1 VALUE player's hand
   1 STRAIGHT FLUSH
   1 SCROLL TITLES
   1 SCREEN LAYOUT
   1 Running flush, raise
   1 READ BETTING DATA
   1 Player stacks
   1 Player calls
   1 PLAYERS CARD PRINT
   1 PLAYERS BID
   1 NO CARD CHANGE
   1 LET THE TAPE RUN
   1 If no K,A try poss flush
   1 HANDS values + 2ND PAIR
   1 FULL HOUSE
   1 Discard Nos
   1 Check for DELETE
   1 CHANGE CARDS
   1 CARDS BACK
   1 ALL CALLED."
   1 ALL CALLED.
   1 ;"since the last raise either CALL"
   1 ;"or STACK."
   1 ;"for the"
   1 ;"`5 each into the pot."
   1 ;"`10 THANKYOU":
   1 ;"`";togo;" to stay"
   1 ;"`";togo;" to go + ";raze;" = `";togo+raze
   1 ;"You have not enough to play!!":
   1 ;"YOURS:";
   1 ;"YOUR TURN [s,c,r]"
   1 ;"YOU HAVEN'T ENOUGH!   ":
   1 ;"WHICH? [1-5]"
   1 ;"The SPECTRUM will act as dealer"
   1 ;"SORRY!"'':
   1 ;"Press a key if you feel lucky!"
   1 ;"Player 1 opens `10":
   1 ;"PLAYER STACKS":
   1 ;"PLAYER 4:"
   1 ;"PLAYER 4"
   1 ;"PLAYER 3:";
   1 ;"PLAYER 3";
   1 ;"PLAYER 2:";
   1 ;"PLAYER 2"
   1 ;"PLAYER 1:";
   1 ;"PLAYER 1";
   1 ;"PLAYER ";win-1
   1 ;"INVALID":
   1 ;"I STACK":
   1 ;"HOW MUCH?    `"
   1 ;"Each deal ends when all players"
   1 ;"CALL, `";togo:
   1 ;"CALL `";togo:
   1 ;"All players start with `10,000."
   1 ;"ARE YOU IN? [y/n]":
   1 ;"AND play the other 4 hands!"
   1 ;"A game of":
   1 ;", takes ";x(g);" cards.":
   1 ;" thinking..
   1 ;" `";p(f);':
   1 ;" WINS.":
   1 ;" TO GO: `";togo;
   1 ;" POT  ";
   1 ;" DEALING ":
   1 ;"   HOW MANY CARDS? [0-4]"
   1 4 OF A KIND
   1 3 of a kind
   1 20,0;players;":";calls;" deal ";round;" H:";h;"Rand ";rnd;" s:";u(h);" c:";h(h)+u(h+1);" ":
   1 ,y;c$(c1,2
   1 ,y;c$(c1,1
   1 )=c(nc+f):
   1 '"The final amounts were:"
   1 '"Player ";f-1
   1 "With shuffle [y/n]?";z$:
   1 "Press x to end, any other key to start again."
   1 "MORE [y/n]?";z$:
   1  DRAW POKER. 
   1     BLUFF